home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do / SNOOPY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  27 lines
  1. 2 D$ =  CHR$(4)
  2. 10  TEXT : HOME : VTAB 10: HTAB 15: PRINT "S N O O P Y ": PRINT : HTAB 11: PRINT "D E C O R A T E S": PRINT : HTAB 7: PRINT "F O R   C H R I S T M A S"
  3. 15  PRINT D$"BLOAD UNPACKER"
  4. 20  PRINT D$;"BLOAD SN1,A$6000"
  5. 25  POKE 7699,32: POKE 7737,64: POKE 7802,64: CALL 7680
  6. 30  PRINT D$;"BLOAD SN2,A$6000"
  7. 35  POKE 7699,64: POKE 7737,96: POKE 7802,96: CALL 7680
  8. 40  POKE  -16302,0: POKE  -16304,0: POKE  -16297,0
  9. 50  POKE  -16300,0
  10. 60  PRINT D$;"BLOAD SN3,A$6000"
  11. 65  POKE  -16299,0
  12. 70  POKE 7699,32: POKE 7737,64: POKE 7802,64: CALL 7680
  13. 80  PRINT D$;"BLOAD SN4,A$6000"
  14. 95  POKE  -16300,0
  15. 100  POKE 7699,64: POKE 7737,96: POKE 7802,96: CALL 7680
  16. 110  PRINT D$;"BLOAD SN5,A$6000"
  17. 120  POKE  -16299,0
  18. 130  POKE 7699,32: POKE 7737,64: POKE 7802,64: CALL 7680
  19. 140  PRINT D$;"BLOAD SN6,A$6000"
  20. 150  POKE  -16300,0
  21. 170  POKE 7699,64: POKE 7737,96: POKE 7802,96: CALL 7680
  22. 180  PRINT D$;"BLOAD SN7,A$6000"
  23. 190  POKE  -16299,0
  24. 200  POKE 7699,32: POKE 7737,64: POKE 7802,64: CALL 7680
  25. 210  FOR I = 1 TO 2000: NEXT I
  26. 220  POKE  -16300,0
  27. 230  FOR I = 1 TO 2000: NEXT : TEXT : HOME : PRINT  CHR$(4)"RUN GARRISON'S.SHOW"